﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='文章修改'><p>"

dim id,classid,rs,author
id=request("id")
classid=request("classid")

set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_article where id="&id,myconn,1,1
if rs.eof and rs.bof then
	w "文章不存在<br/>"
else
	w "文章详情:<br/>"
	author=rs("HU_author")
%>标题: <%=nowml(rs("title"))%><br/>
添加日期: <%=rs("HU_date")%><br/>
人气: <%=rs("hit")%><br/>
标题:<input name="title<%=time_r%>" value="<%=nowml(rs("title"))%>"/><br/>
文章内容:<input name="test<%=time_r%>" value="<%=nowml(rs("test"))%>"/><br/>
<%
	If Not IsNumeric(author) Then
%>
来源:<input name="author<%=time_r%>" type="text" value="<%=author%>"/><br/>
<%
	End If
%>
<anchor>修改文章
<go href="post.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;classid=<%=classid%>" method="post" accept-charset="utf-8">
<postfield name="test" value="$(test<%=time_r%>)"/>
<postfield name="title" value="$(title<%=time_r%>)"/>
<%
	If Not IsNumeric(author) Then
%>
<postfield name="author" value="$(author<%=time_r%>)"/>
<%
	Else
%>
<postfield name="author1" value="<%=author%>"/>
<%
	End If
%>
</go>
</anchor>
<%
end if
rs.close
set rs=nothing
%>
<br/>----------<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[文章列表]</a>
<br/><a href="wzclass.asp?sid=<%=sid%>">[返回分类]</a><%Call last%>